.DO Externa! 

. LSTON 

.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Module: Spr1.B1 

> This module contains those sparing routines that must 

> be located in bankl. 

> 

> PROCEDURE InitJSprTbi 

> PROCEDURE LoadJSprTbl 
PROCEDURE SprChkSum 

> FUNCTION Chk^SprChk 

> FUNCTION SpK SpareTab I e ! ndex : BVTE { !r8 } > : 3 BVTES { !rC:E } 

> PROCEDURE UpDate_SprTbl 

> FUNCTION Chk_PassWord : BOOLEftN 

> PROCEDURE Load_Passt4ord< Destination : PTR { ! !rE } > 

> PROCEDURE SpareCounK 2 BITS { !rO/Bits 1:0 > > 

> 

> > > > > > > > > > »>> > > > >>>>>>>>>> > .-- > > 

. LSTOFF 
.FIN 

.DO External 

. LSTON 

.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

> Procedure: lnit_SprTbi 

y 

> BANK 1 PROCEDURE 

> 

> This procedure initializes the spare table, it assumes 

> that there is NO spare table on disk. 

> 

> inputs: 

> Forma tO ff set : B'/TE { !r-4 > 

> Format Inter Leave : BVTE { !r5 } 

> Outputs: { none } 

> Algorithm: 
> 

> BEGIN 

> SparePuit := $F0783C 1E 

> SpareTmStmp := 

> FOR s := TO Length* SegPtrflrray ) - 1 DO 

> SegPtrfirrayC i'l.Mil :- True 

> SegPtrfirrayE i J.Ptr := 

> SpareCount := 

> BadCount := 

> FOR i := TO LengthC SpareBitNap > - 1 DO 

> SpareBitMapI i T~:= 

> FOR i : = TO 1 DO 

> RddSpareC SprTbi_Type, Spare, 6etNei»Spare< Spr< i > ), Spr< i ) > 

> .SparePw2 := $F0783C1E 

> UpDate.JBprTbl 

> END 

> 

>>>>>>>>>>>>>>>>>>> » >>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO Internal 



.LSTON 

.Page 

.FIN 

InitJSprTbl : 

Ld 
Ld 

Cai 1 

Ld 
Ld 
Cal ! 

Ld 
Ld 

Lde 
I new 
Lde 
1 new 

Ld 
Ld 

iJS_Tbi_Lp2: Lde 
I new 
Djnz 

Ld 
Ld 
Ld 

i_S_Tb!J_p4: Lde 
I new 
Deciu 
Jr 

Ld 
Ld 
Cir 

Create_Tbi: Call 
Ld 
Ld 
Call 
Push 
Ld 
Ld 
Or 
Ld 
Ld 
Cat I 
Pop 
Inc 
D j nz 

Ld 
Ld 
Ld 
Ld 

I JlapJLp : Lde 
lncu» 
Rdd 
Cp 
Jr 
Sub 



!r2,*.HIBYTE. Sparefirraq 
!r3,#. LOWBVTE. Spareflrray 
ZeroB I ock 

!rE,*.HlBVTE. SparePwt 
! rF , * . LOWBVTE . SparePw 1 
Load_PassWord ; I oad SparePw 1 

?r2,#.HIBYTE. FmtOffset 
!r3,». LOWBVTE. FmtOffset 

§!!r2,!r4 ;store offset value 
! !r2 ' 

§Hr2, !r5 ; store interleave value 
? } r 2 

!rO.,#Hi I 

!r1,*< SprCount - SegPtr Array > 
@!?r2, frO 
? !r2 

!r1, !JS_Tbl_Lp2 
!r0,«$00 

!r4,*.HIBYTE. < SpareCheck - SprCount > 
!r 5,*. LOWBVTE. < SpareCheck - SprCount > 
ff! !r2, !r0 
! !r2 
! !r4 

Nz, I^S_Tbl_Lp4 

Data_Type, *SprTb f -Type 
!r5,*2 ; create two tables 
ir8 
Spr 

! r2, * . H 1 BVTE . GetNewSpare 

! r-3 , # . LOWBVTE . GetNewSpare 

BankjCal I 

!r8 ;save counter 

!rF.,!rO 

I r3, #SprTb I -Type 
!r8,*Spare 

!r2>.HIBVTE. fiddSpare 
!r3,«. LOWBVTE. RddSpare 
BankjCal I 
!r8 

!r8 ;go to next table 
!r5,Creote_Tbi 

!r2,*.HIBYTE. Hop-Table 

!r3,«. LOWBVTE. Map-Table 

!r1.#NbrSctrs 

!r0,*0 

§Hr2, !rG 

!!r2 

!rO,*f1ap_Df It 
!rO,«NbrSctrs 
Lt, i_J1ap_Lp2 
!rO,*Nbr-Sctrs 



i_f1ap_Lp2: Djnz Irl, iJ1ap_Lp 



Ld !rE,*.HIBVTE. SparePw2 

Ld !rF,*.LOWBYTE. SparePw2 

Cal I Load_PassWord 



Cal I UpDateJSprTb! 
Jp Bank_Ret 

. LSTOFF 

.00 External 
. LSTON 
. Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

> Procedure: LoadJSprTbl 

> BANK 1 PROCEDURE 

> 

> This procedure loads the spare table from disk. The table is 

> found by a linear search of ail the spare blocks until a block 

> is found where both the Spare Table Identifier field is present 

> and the internal passwords and check byte are valid. 

> 

> Inputs: { none } 

> Outputs: { none } 

> fi i gor i thm : 

> 

> BEGIN 

> Seek_Type := RccessJDf fset 

> InterLeaveFactor := Find- Inter Leave 

> Found := False 

> Count := 

> i := NumberOfSpareB locks 

> UH i LE < i > > RHB ( Count < 2 > DO 

> Seek< CnvrtLogicaK flulfiO_jn< i > > > 

> J := 

> Sector : = 

> WHILE N0T< Found > AND < j < NfarSctrs > DO 

> IF ReadCommon 

> THEN 

> IF < BlockiD = SprTbl ID > RND 

> ( Password 1 = PassWord2 = PassWord ) AND 

> < CheckByte is valid > 

> THEN 

> Found := True 

> Count := Count + 1 

> IF < Count > 1 ) 

> THEN 

> IF < SpareTab I e . RunNumber < ReadBuf fer .RunHumber > 

> THEN NoveBiock< SpareTable, ReadBuf fer > 

> ELSE 'MoveS lock C SpareTable, ReadBuf fer > 
ELSE 

> IF C RdErrCnt < 10 > 

> THEN 

> !1oveBiock< ReadBuf fer , Buffer2 ) 

> IF < Block ID = SprTbl ID > RND 

> < Password 1 = PassWord2 = Password ) RND 

> (. CheckByte is vai id > 

THEN 

Found := True 



Count := Count + 1 
IF < Count > 1 > 
THEN 

IF < SpareTab I e . RunNumber < ReadBuffer .RunNumber 
THEN MoveBlockC Spar eTab I e, ReadBuffer- ) 
ELSE MoveB I ock < SpareTab I e . ReadBu f f er > 

j := j + t 

Sector := < Sector + InterLeaueFactor > NOD NbrSctrs 
i := i - 1 
!F NOTC Found > 
THEN Abort 
ELSE 

UpBateJSprTbl 
Park 

SlfTstJtesuit.NoSpareTable := False 



>>>>>>>>>>>;•>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO Internal 

. LSTON 

-Page 

.FIN 



Load-JSprTb I 



Ld ! r5 , *76 ; i : = NumberOf SpareB I ocks 

Clr !r4 ; SprTb I -Found := False 
Ld Da taType , *User_Type 



LJSprTbl_Lp: Call Ext_Push 
Ld !rOJr5 

Ld !r2,*.HIBYTE. MuIROji 

Ld !rS\,#.LGUBS*TE. NulRO_jn 

Call Bank_Call 

Ld !r2,*.HIBVTE. 6etJCyl_H_S 

Ld !r3,«.L0HBYTE. Get_£yl_R_S 

Cal ! BankJCall 

Ld Seek— Type, *ficcess 

Cal I NeiM_Seek 

Cal I Ext_Pop 

Ld !r6,*NbrSctrs ; check the entire track 

Clr- Sector ; star ting with sector 



L_RdJLp: 



Push ir-4 

Push !r5 

Push !r6 

Ld ?r2,*.HIBVTE. RdBlkJJector 

Ld !r3,*.L0MBVTE. RdBlkJtector 

Call BankJCall 

Pop ! r6 

Pop ! r5 

Pop !r4 

Jr Nz.ChkJSprTbl 



Ld !rO,RdErrCnt 

find !rO,*$OF ;mask unwanted status 

Cp * rO t * 10 ; check for any success!" u ! 

Jr Ge , i SprTb I Jlor e 



reads 



Cai I 
Jr 



Buf2_ToJ : JBuf ; get good data back into ReadBuffer 
Chk_SprTbl 



L^SprTb I Jlore : i nc Sec tor 

Djnz !r5,L_Rd_Lp 

Djnz !r5,L_JSprTbi_Lp 

Or Ir4,!r4 ; check if any spare table found 

Jr Hz , i Spr_End 

Cal I flbort 

ChkJSprTbl: Ld ScrReg2, *. HI BYTE. < RBuf fer 1+B lock I D > 

Ld ScrReg3,*.L0WBYTE. < RBuf fer 1+B Jock IB > 

Cai ! Chk_PassWord 

Jr Z , L JSprTb ! _Hore 

Ld ScrReg2,*.HIBYTE. RBufferl 

Ld ScrReg3,*.L014BVTE. RBufferl 

Cal I Chk_PassMord 

Jr Z,L_SprTbl_More 

Ld !r2,*.HIBYTE. < RBuf fer 1+SpareCheck-SpareRr ray ? 

Ld !r3,#.LGUBYTE. < RBuf fer 1+SpareCheck-SpareRrray ) 

Lde ! rO t ? ! ! r2 ; check poss i b I e check byte 

\ncm ! !r2 

Lde [r1,©!!r2 

Srp # i4rk_Scr 

Ld ?K:,*.HIBVTE. RBufferl 

Ld !rB,*.LOMBYTE. RBufferl 

Cai l SprChk2 

Srp *Mrk_Sys 

Cai i ChkJSpr2 

Jr Z,L_JBprTbl_f1ore 

Or !r4, !r4 ; check for a SpareTable already found 

Jr Z,! Spr_T1ove 

Srp *WrkJScr 

Ld !r&,*.HIBYTE. SpareTmStrop 

Ld !r7,#.L0UBYTE. SpareTmStmp 

Ld !r4.,#ScrRegO 

Call Ld_tisStmp 

Ld !r6,*.HIBYTE. < RBuf fer 1+SpareTniStmp-Sparefir ray > 

Ld !r?,*.LOMBYTE. (. RBuf fer 1+SpareTfflStmp-SpareRrraq > 

Ld !r4,*ScrRegC 

Cal I Ld_TmStmp 

Sub !r3, IrF 

Sbc !r2,!rE 

Sbc !r1,!rD 

Sbc IrOJrC 

Srp «HrkJSys 

Jr Oe^l Spr_!nc 

Bee Ir4 ; account for old, bogus spare table 

L_5pr_Move: Ld !r2,*.HIBYTE. RBuf_To_JSpr 

Ld !r3,*.L0UBYTE. RBuf_To^Spr 

Cal I Bank_Cal I 

I Spr_lnc: Inc !r4 ;note the arrival of a SpareTable 

Cp !r4,*2 ;see if that's all there is 

Jr Hz,L-Sprfbl-i1ore 

L_SprJEnd: Call UpDate_SprTb I 



find 



3 I f Ts t_Resu 1 1 1 *$FF-No_jSprTb I 



Ld !r2,*.HIBVTE. Park_Heads 

Ld !r3,«.LQHBYTE. Park-Heads 

Call Bank_£ail 

Jp Bank-Bet 

Ld_TmStmp: Ld !r5,*4 ; load 4 bytes 

Ld_TmJLp : Lde i g ! r4 , e ! ! r6 

Djnz !r5,Ld_Tm_Lp 

Ret 

. LSTOFF 

.DO External 

.L3T0N 

.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure : SprChkSum 

> 

> This procedure calculates a 16-bit checksum over the contents 

> of the spare table, and stores the sum within the spare table. 

> Inputs: { none } 
> 

> Outputs: { none > 
> 

> Side Effect: ScrRegl, ScrReg2 hold the calculated check byte on return 

> 

> Rlgorithm: 

> BEGIN 

> Sum := 

> SuinPtr := SpareRrray 

> FOR i := 1 TO LengthC SpareRrray > DO 

> Sum := Sum + SpareRrray [ i - 1 ] 

> SpareRrray . Checksum := Sum 

> END 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 

.Fin 

.00 internal 
. LSTON 
. Page 
.FIN 



SprChkSuffi: 



SprChk2: 



SprChk_Lp : 



Ld lrC,*.HlBVTE. SpareRrray 

Ld !rD,».LQHBYTE. SpareRrray 

Ld !rE,*.HIBVTE. < SpareCheck - SpareRrray > 

Ld !rF,*.LOMBVTE. < SpareCheck - SpareRrray > 

C!r !rt 

Clr !r2 

Lde !rG,§!irC 

Add Ir2, SrO 

Rdc !r1,*Q 

I new MrC 



Decw ! ! r€ 

Jr Nz,SprChk_Lp 

Lde ?!!rC, !r1 ; store hi byte of checksum 
1 new ! ! rC 

Lde §!!rC,!r2 ; store low byte of checksum 
Jp Bank-Ret 
. LSTOFF 

.DO External 

.LSTOH 

. Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

> Function: ChkJSprChk 

> This function is responsible for verifying that the checksum 

> residing in the spare table is correct. 

> 

> Inputs: { none } 

V 

> Outputs: 

> ChkJSprChk : BOOLEAN { zero flag > 

> ft I gor i thm : 

> BEG I M 

> TempSum := SpareTab S e . CheckSum 

> SpareTab I e . CheckSum := SprChkSum 

> IF < TempSum = SpareTab I e . CheckSum ? 

> THEN ChkJSprChk := True 

> ELSE ChkJSprChk := False 

> END 

> > > > > > > > > > >>>>>>>> > >>>>>>>>>> > > > 

. LSTOFF 
.FIN 

.DO Internal 
. LSTON 
. Page 
.FIN 



Chk_SprChk: 

Ld !r2,*.HIBVTE. SpareCheck 

Ld !r3,*.L0WB¥TE. SpareCheck 

Lde !r0>!!r-2 

I new ! !r2 

Lde !rt.,§« !r2 

Srp «HrkJScr 

Call SprChkSum 

Srp *yrkj3ys 

ChkjSpr2: Xor !r-0,SerReg1 ;side effect: Ser-Reg2:3 hold new cheeky te 

Xor lrtj,ScrReg2 

Or Ir0,!r1 

Clr !r0 

Jr Nz.ChkJSprJfcnd 

Ld !rG,*1 

ChkJSprJEnd: Or !r0, !r0 ; set zero flag 



Jp BankJRet 



. LSTOFF 

.DO External 

. LSTON 

.Page 

:>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 



Function: Spr 



> 

> This function returns the logical block number associated 

> with the parameter passed in. Because there are only two spare 

> blocks containing the spare table,, this function accepts 

> only ODD or EUEN input params. 

> 

> Inputs: 

> SpareTabielndex : BVTE { !rS > 

> 

> Outputs: 

> Spr : 3 BVTES { !rC:E } 

> Algorithm: 

> BEGIN 

> IF SpareTabielndex is EUEN 

> THEN Spr := SprBIkO 

> ELSE Spr := SprBlkt 

> END 

>>>>>>>>>>>>>>>>>>>>>>:>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO Internal 

. LSTON 

.Paqe 

.FIN 



Spr: 

find !rS,*$01 ; IF SpareTabielndex is EUEN 

Jr Nz,Spr_Ddd 

Ld !rC,#HiSprG 

Ld !rD,*NidSpr0 

Ld !rE,»LoSprO 

Jr SprJEnd 

Spr_0dd: Ld !rC,#HiSpr1 

Ld !rD,«MidSpr1 

Ld !rE,*LoSprt 

Spr-End: Jp Bank_Ret 

.LSTOFF 

.DO External 
. LSTON 
. Page 

!>>>>>>>>>>>>>>>> 5- >>>>>>>>>>> >>>>>>> 
* > 

;> Procedure: UpDate_SprTbl 

• ■> 

;> This procedure is responsible for updating the spare table 

;> to both of its locations on disk after a change has been mad« 
: > to the tab I e . 



Inputs: { none > 
Outputs: { none } 
ft I gor i thm : 
BEGIN 

SpareTmStamp := SpareTmStamp + 1 

SprChkSum 

ZeroB I ock 

MBufferl. Block ID := Password 
FOR i := TO 1 DO 

MoveBlock< i-lri teBuf fer, SpareTable > 
TempCyl, TempHead, TempSector := GetJCyl_RJS< 

SrchSpTabK SpareTable, SpK i ) > ) 
IF table not found in SpareTable THEN floor t 
Seek< TempCyl, TempHead, TempSector > 
IF NOT< Mr i teUeri fy< Conservative > > 
THEN 

SF Recovery AND < I4ri teUeri fy. Error-Code = Ex_ReadErr > 
THEN EXIT UpDate_SprTbl 
ELSE 
ZeroB I ock 
Mri teBlock 

NoveBlock< Buffer 2, SpareTable > 

SpareBioek< True, SpareTable, MM tejQp, Spr< i > > 

END 

>>>>>>> > > > > > > > > > > > >>>> > >>>> > > >>> 
. LSTOFF 
.FIN 

.DO Internal 

. LSTON 

.Paqe 

.FIN 



UpDate_SprTbl 



UpDate_1 



UpDate. 



Ld ?r2,*.HIBVTE. SpareTmStamp 

Ld ?r3,*.L0UBS'TE. SpareTmStamp 

Ld irO,*WrkJSys+$C 

Ld !r1,*4 ;get 4 bytes 

Ldei e*r6,f!!r2 

j nz I r 1 , UpDa te_ 1 

fidd !rF,*1 ; increment the count 

fide !r£,#0 

fide !rD,*0 

fide !rC,*0 

Ld !rO,#Wrk_JSys+$C 

Ld !r1,*4 ;move 4 bytes 

Ld lr2>.HIBVTE. SpareTmStamp 

Ld !r3,«.LGUBVTE. SpareTmStamp 

Ldei e!!r2,e>r0 

Djnz !r1,UpDate_2 



Call SprChkSum 

Ld !r4 J> *2 ; write the table to the disk twice 

Clr !r5 ; spare table index 



SprB_Lp: 



CaM Spr_To_i4rBuf 



Ld 
Ld 

Can 



!rE,*.HIBVTE. < WBufferl + BlockfD > 
!rF,#.LOMBVTE. < WBufferl + Block ID ) 
Load_PassWord 



Ld irS, !r-5 

Ca 1 ! Spr 

Ld Da ta_Ty pe , #Spr _Tb I -Type 

Ld »r2,*.HIBVTE. CnvrtLogical 

Ld !r3,#.L0UBVTE. CnurtLogical 

Call BankJCall 

Jr Nz,SprB_JSeek 

Call Abort 

SprB_Seek : Ld Seek_Type , *ftccess_D f f se t 

Cal I Neu>_Seek 

Ld BlkStat,*SJBlock ;say that we've got a spare block 

Ld Bata_Type,*SprTbl_Type ;ditto 

Ld RdErrCnt,*10 ; prime the counter for write error 

Ld !r2.*.HIBVTE. HrUer -JCommon 

Ld !r3,«.LQUBVTE. WrtJerJtownon 

Call BankJCall 

Jr Hz.SprJIext 

Tin Excpt_Stat,*Recovery ; IF Recovery THEN ... 

Jr Hz t RcvrlSpr Tb ! 

Call Abort 

Rcvr JSprTb I : . Ld !r1,RdErrCnt ; check for noisy read 

find !r1.,*$0F 

Cp !rlj«Spr Thresh 

Jr Le,Spr_Next 

Ld !r2,«.HIBVTE. UBufferl 

Ld !r3,*.LGWBVTE. HBufferl 

Co I ! ZeroB I ock 

Ld !r2.*.HIBVTE. Mr JCommon 

Ld lr3>.L0MBVTE. Mr JCommon 

Call Bank-Call 

Ld !r8,!r5 

Cal I Spr 

Ld !r-2,*.HIBVTE. SprEnter 

Ld !r3,#.L0WBVTE. SprEnter 

Call Bank-Call 

Jr Z,Rcvr_SprTbl 

SprJNext: Inc !r3 ;do next table 

Djnz !r4,SprBJLp 

Jp Bank_Ret 

.LSTOFF 

.DO External 

. LSTON 

.Page 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>:>> 
:> Function: ChkJPassMord 



> This function is responsible for checking if the 32 bits 

> pointed to by the input parameter match with the controller's 

> 32 b i t password . 

> 

> Inputs: 

> PassUordPtr : PTR { ScrReg2:3 > 

> Outputs: 

> Chk_Passl4ord : BOOLEAN { zero flag } 

> 

> fi I gor i tm : 

> 

> BEGIN 

> IF < <PassWordPtr> = PassWord > 

> THEN Chk_Passl4ord := True 

> ELSE Chk_PassUord := False 

> END 

f >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO internal 
. LSTON 
. Page 
.FIN 

Chk-PassMord: 

Srp »MrkJScr 

Ld !r4,#4 ; check 4 bytes 

Ld !rE,*.HIBYTE. PassWord 

Ld IrF^.LOWBVTE. PassWord 

Chk_P_Lp: Ldc !r0,§! ?rE ;get a byte of the password 

I new ! ! rE 

Lde !r1,?!!r2 ;get a byte of test string 

incw Hr2 

Cp IrO, !r1 

Cir IrO ; assume failure 

Jr Nz,C-hk_PJEnd 

Djnz !r4,Chk_P_Lp 

Ld !rG,*1 

Chk_F_End : Or IrO, IrO ; set flags 

Srp *Wrk_Sys 
Jp BankJtet 

.LSTOFF 

.DO External 

. LSTON 

.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure: Load_PassWord 

> 

> This procedure loads the 32-bit password into the memory 

> location pointed to by the input parameter. 

> 

> Inputs: 

> Destination : PTR { HrE > 
:> 

> Outputs: { none } 



;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO Internal 

. LSTOH 

.Page 

.FIN 

Load_PassWord: 



Lpw_Lp : 



1 ri 


Jin.O # UlRUTC" Pncre-I Irnr-rl 

: j'.rii dy 1 1 . nasswor a 


Ld 


!r3,*.L0NBVTE. Password 


Ld 


Irl j, #4 ;moue 4 bytes 


Ldc 


!r-G,@! lr-2 


Lde 


glfrE, !rG 


1 new 


! !r2 


Incw 


HrE 


Djnz 


?r 1,Lpw_Lp 


Jp 


Bank_Ret 


. LSTOFF 




.00 


External 


. LSTOH 




.Page 





>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

> 

> Procedure: SpareCount 



This procedure is responsible for incrementing /decrementing 
the Spare /Bad Block count, if the total count exceeds 
HaxSpares-5 then a status bit is set for this command only. 

Inputs: 

Command : 2 BITS { !rO/Bits 1:0 > 

Outputs: { none } 

fl I gor i thm : 

BEGIN 
CASE Command OF 



Increment the spare count 
Increment the bad block count 
Decrement the bad block count 



OTHERWISE Abort 

IF < SpareCount+BadBlockCount >= HaxSpares-5 ) 
THEN 

Excpt-Status , SprTb I J4arn := True 
SetStatusC SprB I k_Warn > 

END 

•>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 

. LSTON 

.Page 

.FIN 



SpareCount : 



Ld !r1,!rO ;get command 

find IM, *$FC ; check for illegal command 

Jr Z,SprCnt_1 

Ld lr-9 . ?r-0 

Call Abort 

SprCnt_1: Ld !r2,«.HIBVTE. SprCount 

Ld !r3,*.L0UBVTE. SprCount 

Lde ! r 1 , @ ! I r'2 ; assume spare coun t i ncr emen t 

Inc !r1!!r2 ;get bad block count 

Cp !rG,*G1 j check for I ncJBadB I ock 

Jr Z,SjC_Badlnc 



S_C_Badlnc: 
S_C_BadEnd: 



S_CjSpare : 
SprCnt JEnd : 
SprCntJRet : 



I nc ! r 1 

Lde 6!!r2, !r1 ; store new count 
Jr SprCnt JEnd 

!r1 ; store new count 
Ca I I ChkJSprCnt 
Jp Bank-Ret 



ChkJSprCnt: Ld !r2,#.HIBVTE. SprCount 

Ld !r3.,*.L0WBVTE. SprCount 



Lde ! rO j, ? ! S r 2 ; ge t spare coun t 

Incw ! Ir2 

Lde Ir1,e!!r2 ;get bad co Lt,ChkJSpr_Ret 

Or Excpt J5tat, *SprTb I J-larn 

Cal ! SSjSprWarn 



ChkJSpr_Bet: Jp 



